home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / chrchpr2.arc / CUTILITY.CMD < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.5 KB  |  49 lines
  1. * Program CUTILITY - Controls all CPROFILE utility programs
  2. Clear
  3. Set deleted ON
  4. Set intensity off
  5. Set talk off
  6. Set bell off
  7. erase
  8. Store T to LEVEL1
  9. Do while LEVEL1
  10.   Erase
  11.   @ 1,62 say 'C P R O F I L E '
  12.   @ 2,62 say ' by WaterWares'
  13.   @ 3,60 say 'version 1.3  Sep,85'
  14.   @ 4,25 say 'CHURCH  UTILITY  PROGRAMS'
  15.   @ 7,9 say  '1)  Article CROSS-REFERENCE program                   /CROSSREF/'
  16.   @ 8,9 say  '2)  Church Book Library Manager                       /CLIBRARY/'
  17.   @ 9,9 say  '3)  Church Music Library Manager                      /MUSICLIB/'
  18.   @ 10,9 say '4)  Church Tape  Library Manager                      /CTAPELIB/'
  19.   @ 11,9 say '5)  Church Special Event Manager                      /CSEVENT /'
  20.   @ 12,9 say '6)  Church Survey Processor                           /CSURVEY /'
  21. ?
  22. Accept '         Select one of the above operations ("Q" = quit) ' to MSEL
  23.   Do while @(MSEL,'123456Qq')=0
  24.     Accept '         Invalid selection. Pease enter again ' to msel
  25.   enddo
  26.   Do CASE
  27.     CASE MSEL = '1'
  28.       Do CROSSREF.CMD
  29.     CASE MSEL = '2'
  30.       Do CLIBRARY.CMD
  31.     CASE MSEL = '3'
  32.       Do MUSICLIB.CMD
  33.     CASE MSEL = '4'
  34.       Do CTAPELIB.CMD
  35.     CASE MSEL = '5'
  36.       Do CSEVENT.CMD
  37.     CASE MSEL = '6'
  38.       Do CSURVEY.CMD
  39.     CASE !(MSEL) = 'Q'
  40.       RETURN
  41.     OTHERWISE
  42.       Accept 'Illegal selection. Please enter again ' to MSEL
  43.       Store F to validd1
  44.   ENDCASE
  45.   Store T to LEVEL1
  46. ENDDO
  47. RETURN
  48. ry Manager                       /CLIBRARY/'
  49.   @ 9,9 say  '3)  Church